home *** CD-ROM | disk | FTP | other *** search
/ Pornodelic / Pornodelic - Disc 2.iso / pc / data / opening.dir / 00003_QUIT WINDOWÇÃäJï¬ÅBÅx.ls < prev    next >
Encoding:
Text File  |  1998-02-19  |  569 b   |  26 lines
  1. on beginmyquit x, y, w, h
  2.   global myquit
  3.   if objectp(myquit) then
  4.     forget(myquit)
  5.   end if
  6.   set horzorigin to the stageLeft + x
  7.   set vertorigin to the stageTop + y
  8.   set mywindowrect to rect(horzorigin, vertorigin, horzorigin + w, vertorigin + h)
  9.   set myquit to window "QUIT"
  10.   set the rect of myquit to mywindowrect
  11.   set the fileName of myquit to "QUIT"
  12.   set the titleVisible of myquit to 1
  13.   set the windowType of myquit to 1
  14. end
  15.  
  16. on stopmyquit
  17.   finishmyquit()
  18. end
  19.  
  20. on finishmyquit
  21.   global myquit
  22.   if objectp(myquit) then
  23.     forget(myquit)
  24.   end if
  25. end
  26.